home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Utilities / Programming / Dialog Director 0.6 / Res Utils Examples / Get Res.as < prev    next >
Encoding:
Text File  |  1996-12-06  |  271 b   |  13 lines  |  [TEXT/ToyS]
  1. on run
  2.     set f to choose file of type "rsrc"
  3.     set rf to res open f --without write permission
  4.     try
  5.         set x to res get rf id 1000 type "ΔBtn"
  6.         set y to res get rf id 2000 type "reco"
  7.     on error number n
  8.         res close rf
  9.         error number n
  10.     end try
  11.     res close rf
  12.     [x, y]
  13. end run